home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.46 / stinglibpcq / english / trial_str_c_pos.p < prev    next >
Text File  |  1995-03-27  |  344b  |  26 lines
  1. program essai;
  2.  
  3. {$I "include:utils/string.i"}
  4.  
  5. var
  6.     s : string;
  7.     c : char;
  8.     p : Str_ListPtr;
  9.  
  10. begin
  11.     s := allocstring(80);
  12.     write('Enter a string : ');
  13.     readln(s);
  14.     write('Enter a char : ');
  15.     readln(c);
  16.     p := Str_C_Pos(s,c);
  17.     while p<>nil do
  18.     begin
  19.         write(p^.pos:3);
  20.         p := p^.next;
  21.     end;
  22.     writeln;
  23.     if p<>nil then
  24.         Str_FreeStr_List(p);
  25. end.
  26.